home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 April: Mac OS SDK / Dev.CD Apr 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / AIncludes / CardServices.a < prev    next >
Encoding:
Text File  |  1996-01-24  |  33.5 KB  |  979 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        CardServices.a
  3. ;
  4. ;    Contains:    This file contains constants and data structures that describe
  5. ;                the client interface to Card and Socket Services.
  6. ;
  7. ;     Version:    Technology: PCMCIA Software 2.0
  8. ;                Package:    Universal Interfaces 2.2 in “MPW” on ETO #20
  9. ;
  10. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  11. ;                All rights reserved.
  12. ;
  13. ;     Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14. ;                 stack.  Include the file and version information (from above)
  15. ;                 in the problem description and send to:
  16. ;                     Internet:    apple.bugs@applelink.apple.com
  17. ;                     AppleLink:    APPLE.BUGS
  18. ;
  19.  
  20.     IF &TYPE('__CARDSERVICES__') = 'UNDEFINED' THEN
  21. __CARDSERVICES__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__PCCARDTUPLES__') = 'UNDEFINED' THEN
  30.     include 'PCCardTuples.a'
  31.     ENDIF
  32.  
  33.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  34.     include 'MixedMode.a'
  35.     ENDIF
  36.  
  37. CS_MAX_SOCKETS                    EQU        32                    ; a long is used as a socket bitmap
  38.  
  39. ; ••• Should eventually move to <Gestalt.h>
  40. gestaltCardServicesAttr            EQU        'pccd'                ; Card Services attributes
  41. gestaltCardServicesPresent        EQU        0                    ; if set, Card Services is present
  42.  
  43. ; ••• Should eventually move to <Traps.h>
  44. _PCCardDispatch                    EQU        $AAF0                ; Card Services entry trap
  45.  
  46. ; 
  47. ;    The PC Card Manager will migrate towards a complete Mac name space very soon.
  48. ;    Part of that process will be to reassign result codes to a range reserved for
  49. ;    the PC Card Manager...the range will be...-9050 to -9305 (decimal inclusive).
  50. ;
  51. ;    result codes
  52. kCSBadAdapterErr                EQU        -9050                ; invalid adapter number
  53. kCSBadAttributeErr                EQU        -9051                ; specified attributes field value is invalid
  54. kCSBadBaseErr                    EQU        -9052                ; specified base system memory address is invalid
  55. kCSBadEDCErr                    EQU        -9053                ; specified EDC generator specified is invalid
  56. kCSBadIRQErr                    EQU        -9054                ; specified IRQ level is invalid
  57. kCSBadOffsetErr                    EQU        -9055                ; specified PC card memory array offset is invalid
  58. kCSBadPageErr                    EQU        -9056                ; specified page is invalid
  59. kCSBadSizeErr                    EQU        -9057                ; specified size is invalid
  60. kCSBadSocketErr                    EQU        -9058                ; specified logical or physical socket number is invalid
  61. kCSBadTypeErr                    EQU        -9059                ; specified window or interface type is invalid
  62. kCSBadVccErr                    EQU        -9060                ; specified Vcc power level index is invalid
  63. kCSBadVppErr                    EQU        -9061                ; specified Vpp1 or Vpp2 power level index is invalid
  64. kCSBadWindowErr                    EQU        -9062                ; specified window is invalid
  65. kCSBadArgLengthErr                EQU        -9063                ; ArgLength argument is invalid
  66. kCSBadArgsErr                    EQU        -9064                ; values in argument packet are invalid
  67. kCSBadHandleErr                    EQU        -9065                ; clientHandle is invalid
  68. kCSBadCISErr                    EQU        -9066                ; CIS on card is invalid
  69. kCSBadSpeedErr                    EQU        -9067                ; specified speed is unavailable
  70. kCSReadFailureErr                EQU        -9068                ; unable to complete read request
  71. kCSWriteFailureErr                EQU        -9069                ; unable to complete write request
  72. kCSGeneralFailureErr            EQU        -9070                ; an undefined error has occurred
  73. kCSNoCardErr                    EQU        -9071                ; no PC card in the socket
  74. kCSUnsupportedFunctionErr        EQU        -9072                ; function is not supported by this implementation
  75. kCSUnsupportedModeErr            EQU        -9073                ; mode is not supported
  76. kCSBusyErr                        EQU        -9074                ; unable to process request at this time - try later
  77. kCSWriteProtectedErr            EQU        -9075                ; media is write-protected
  78. kCSConfigurationLockedErr        EQU        -9076                ; a configuration has already been locked
  79. kCSInUseErr                        EQU        -9077                ; requested resource is being used by a client
  80. kCSNoMoreItemsErr                EQU        -9078                ; there are no more of the requested item
  81. kCSOutOfResourceErr                EQU        -9079                ; Card Services has exhausted the resource
  82.  
  83. ;    messages sent to client's event handler
  84. kCSNullMessage                    EQU        $00                    ; no messages pending (not sent to clients)
  85. kCSCardInsertionMessage            EQU        $01                    ; card has been inserted into the socket
  86. kCSCardRemovalMessage            EQU        $02                    ; card has been removed from the socket
  87. kCSCardLockMessage                EQU        $03                    ; card is locked into the socket with a mechanical latch
  88. kCSCardUnlockMessage            EQU        $04                    ; card is no longer locked into the socket
  89. kCSCardReadyMessage                EQU        $05                    ; card is ready to be accessed
  90. kCSCardResetMessage                EQU        $06                    ; physical reset has completed
  91. kCSInsertionRequestMessage        EQU        $07                    ; request to insert a card using insertion motor
  92. kCSInsertionCompleteMessage        EQU        $08                    ; insertion motor has finished inserting a card
  93. kCSEjectionRequestMessage        EQU        $09                    ; user or other client is requesting a card ejection
  94. kCSEjectionFailedMessage        EQU        $0A                    ; eject failure due to electrical/mechanical problems
  95. kCSPMResumeMessage                EQU        $0B                    ; power management resume (TBD)
  96. kCSPMSuspendMessage                EQU        $0C                    ; power management suspend (TBD)
  97. kCSResetPhysicalMessage            EQU        $0D                    ; physical reset is about to occur on this card
  98. kCSResetRequestMessage            EQU        $0E                    ; physical reset has been requested by a client
  99. kCSResetCompleteMessage            EQU        $0F                    ; ResetCard() background reset has completed
  100. kCSBatteryDeadMessage            EQU        $10                    ; battery is no longer useable, data will be lost
  101. kCSBatteryLowMessage            EQU        $11                    ; battery is weak and should be replaced
  102. kCSWriteProtectMessage            EQU        $12                    ; card is now write protected
  103. kCSWriteEnabledMessage            EQU        $13                    ; card is now write enabled
  104. kCSClientInfoMessage            EQU        $14                    ; client is to return client information
  105. kCSSSUpdatedMessage                EQU        $15                    ; AddSocketServices/ReplaceSocket services has changed SS support
  106. kCSFunctionInterruptMessage        EQU        $16                    ; card function interrupt
  107. kCSAccessErrorMessage            EQU        $17                    ; client bus errored on access to socket
  108. kCSCardUnconfiguredMessage        EQU        $18                    ; a CARD_READY was delivered to all clients and no client 
  109. ;    requested a configuration for the socket
  110. kCSStatusChangedMessage            EQU        $19                    ; status change for cards in I/O mode
  111.  
  112. ;
  113. ;    The following is a mapping of the PCMCIA name space to the Macintosh name space.
  114. ;    These two enum lists will be removed and given to developers as a separate file.
  115. ;
  116. SUCCESS                            EQU        noErr
  117. BAD_ADAPTER                        EQU        kCSBadAdapterErr
  118. BAD_ATTRIBUTE                    EQU        kCSBadAttributeErr
  119. BAD_BASE                        EQU        kCSBadBaseErr
  120. BAD_EDC                            EQU        kCSBadEDCErr
  121. BAD_IRQ                            EQU        kCSBadIRQErr
  122. BAD_OFFSET                        EQU        kCSBadOffsetErr
  123. BAD_PAGE                        EQU        kCSBadPageErr
  124. BAD_SIZE                        EQU        kCSBadSizeErr
  125. BAD_SOCKET                        EQU        kCSBadSocketErr
  126. BAD_TYPE                        EQU        kCSBadTypeErr
  127. BAD_VCC                            EQU        kCSBadVccErr
  128. BAD_VPP                            EQU        kCSBadVppErr
  129. BAD_WINDOW                        EQU        kCSBadWindowErr
  130. BAD_ARG_LENGTH                    EQU        kCSBadArgLengthErr
  131. BAD_ARGS                        EQU        kCSBadArgsErr
  132. BAD_HANDLE                        EQU        kCSBadHandleErr
  133. BAD_CIS                            EQU        kCSBadCISErr
  134. BAD_SPEED                        EQU        kCSBadSpeedErr
  135. READ_FAILURE                    EQU        kCSReadFailureErr
  136. WRITE_FAILURE                    EQU        kCSWriteFailureErr
  137. GENERAL_FAILURE                    EQU        kCSGeneralFailureErr
  138. NO_CARD                            EQU        kCSNoCardErr
  139. UNSUPPORTED_FUNCTION            EQU        kCSUnsupportedFunctionErr
  140. UNSUPPORTED_MODE                EQU        kCSUnsupportedModeErr
  141. BUSY                            EQU        kCSBusyErr
  142. WRITE_PROTECTED                    EQU        kCSWriteProtectedErr
  143. CONFIGURATION_LOCKED            EQU        kCSConfigurationLockedErr
  144. IN_USE                            EQU        kCSInUseErr
  145. NO_MORE_ITEMS                    EQU        kCSNoMoreItemsErr
  146. OUT_OF_RESOURCE                    EQU        kCSOutOfResourceErr
  147.  
  148. ;    messages sent to client's event handler
  149. NULL_MESSAGE                    EQU        kCSNullMessage
  150. CARD_INSERTION                    EQU        kCSCardInsertionMessage
  151. CARD_REMOVAL                    EQU        kCSCardRemovalMessage
  152. CARD_LOCK                        EQU        kCSCardLockMessage
  153. CARD_UNLOCK                        EQU        kCSCardUnlockMessage
  154. CARD_READY                        EQU        kCSCardReadyMessage
  155. CARD_RESET                        EQU        kCSCardResetMessage
  156. INSERTION_REQUEST                EQU        kCSInsertionRequestMessage
  157. INSERTION_COMPLETE                EQU        kCSInsertionCompleteMessage
  158. EJECTION_REQUEST                EQU        kCSEjectionRequestMessage
  159. EJECTION_FAILED                    EQU        kCSEjectionFailedMessage
  160. PM_RESUME                        EQU        kCSPMResumeMessage
  161. PM_SUSPEND                        EQU        kCSPMSuspendMessage
  162. RESET_PHYSICAL                    EQU        kCSResetPhysicalMessage
  163. RESET_REQUEST                    EQU        kCSResetRequestMessage
  164. RESET_COMPLETE                    EQU        kCSResetCompleteMessage
  165. BATTERY_DEAD                    EQU        kCSBatteryDeadMessage
  166. BATTERY_LOW                        EQU        kCSBatteryLowMessage
  167. WRITE_PROTECT                    EQU        kCSWriteProtectMessage
  168. WRITE_ENABLED                    EQU        kCSWriteEnabledMessage
  169. CLIENT_INFO                        EQU        kCSClientInfoMessage
  170. SS_UPDATED                        EQU        kCSSSUpdatedMessage
  171. FUNCTION_INTERRUPT                EQU        kCSFunctionInterruptMessage
  172. ACCESS_ERROR                    EQU        kCSAccessErrorMessage
  173. CARD_UNCONFIGURED                EQU        kCSCardUnconfiguredMessage
  174. STATUS_CHANGED                    EQU        kCSStatusChangedMessage
  175.  
  176. ;----------------        CSAccessConfigurationRegister    ----------------
  177. ; typedef struct AccessConfigurationRegisterPB  AccessConfigurationRegisterPB
  178. AccessConfigurationRegisterPB RECORD    0
  179. socket                     ds.w   1        ; offset: $0 (0)        ;  -> global socket number
  180. action                     ds.b   1        ; offset: $2 (2)        ;  -> read/write
  181. offset                     ds.b   1        ; offset: $3 (3)        ;  -> offset from config register base
  182. value                     ds.b   1        ; offset: $4 (4)        ; <-> value to read/write
  183. padding                     ds.b   1        ; offset: $5 (5)        ; 
  184. sizeof                     EQU *            ; size:   $6 (6)
  185.                         ENDR
  186.  
  187. ;    ‘action’ field values
  188.  
  189. kCSReadConfigRegister            EQU        $00
  190. kCSWriteConfigRegister            EQU        $01
  191.  
  192. ;----------------        CSGetCardServicesInfo            ----------------
  193. ; typedef struct GetCardServicesInfoPB  GetCardServicesInfoPB
  194. GetCardServicesInfoPB     RECORD    0
  195. signature                 ds.b   2        ; offset: $0 (0)        ; <-  two ascii chars 'CS'
  196. count                     ds.w   1        ; offset: $2 (2)        ; <-  total number of sockets installed
  197. revision                 ds.w   1        ; offset: $4 (4)        ; <-  BCD
  198. csLevel                     ds.w   1        ; offset: $6 (6)        ; <-  BCD
  199. reserved                 ds.w   1        ; offset: $8 (8)        ;  -> zero
  200. vStrLen                     ds.w   1        ; offset: $A (10)        ; <-> in: client's buffer size, out: vendor string length
  201. vendorString             ds.l   1        ; offset: $C (12)        ; <-> in: pointer to buffer to hold CS vendor string (zero-terminated)
  202. ;      out: CS vendor string copied to buffer
  203. sizeof                     EQU *            ; size:   $10 (16)
  204.                         ENDR
  205.  
  206. ;----------------        CSGetClientInfo                    ----------------
  207. ; typedef struct ClientInfoParam  ClientInfoParam
  208. ClientInfoParam         RECORD    0
  209. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  210. attributes                 ds.w   1        ; offset: $4 (4)        ; <-> subfunction + bitmapped client attributes
  211. revision                 ds.w   1        ; offset: $6 (6)        ; <-  BCD value of client's revision
  212. csLevel                     ds.w   1        ; offset: $8 (8)        ; <-  BCD value of CS release
  213. revDate                     ds.w   1        ; offset: $A (10)        ; <-  revision date: y[15-9], m[8-5], d[4-0]
  214. nameLen                     ds.w   1        ; offset: $C (12)        ; <-> in: max length of client name string, out: actual length
  215. vStringLen                 ds.w   1        ; offset: $E (14)        ; <-> in: max length of vendor string, out: actual length
  216. nameString                 ds.l   1        ; offset: $10 (16)        ; <-  pointer to client name string (zero-terminated)
  217. vendorString             ds.l   1        ; offset: $14 (20)        ; <-  pointer to vendor string (zero-terminated)
  218. sizeof                     EQU *            ; size:   $18 (24)
  219.                         ENDR
  220.  
  221. ; upper byte of attributes is kCSCardNameSubfunction,
  222. ;                               kCSCardTypeSubfunction,
  223. ;                               kCSHelpStringSubfunction
  224. ; typedef struct AlternateTextStringParam  AlternateTextStringParam
  225. AlternateTextStringParam RECORD    0
  226. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  227. attributes                 ds.w   1        ; offset: $4 (4)        ; <-> subfunction + bitmapped client attributes
  228. socket                     ds.w   1        ; offset: $6 (6)        ;  -> logical socket number
  229. reserved                 ds.w   1        ; offset: $8 (8)        ;  -> zero
  230. length                     ds.w   1        ; offset: $A (10)        ; <-> in: max length of string, out: actual length
  231. text                     ds.l   1        ; offset: $C (12)        ; <-  pointer to string (zero-terminated)
  232. sizeof                     EQU *            ; size:   $10 (16)
  233.                         ENDR
  234.  
  235. ; upper byte of attributes is kCSCardIconSubfunction
  236. ; typedef struct AlternateCardIconParam  AlternateCardIconParam
  237. AlternateCardIconParam     RECORD    0
  238. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  239. attributes                 ds.w   1        ; offset: $4 (4)        ; <-> subfunction + bitmapped client attributes
  240. socket                     ds.w   1        ; offset: $6 (6)        ;  -> logical socket number
  241. iconSuite                 ds.l   1        ; offset: $8 (8)        ; <-  handle to icon suite containing all icons
  242. sizeof                     EQU *            ; size:   $C (12)
  243.                         ENDR
  244.  
  245. ; upper byte of attributes is kCSActionProcSubfunction
  246. ; typedef struct CustomActionProcParam  CustomActionProcParam
  247. CustomActionProcParam     RECORD    0
  248. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  249. attributes                 ds.w   1        ; offset: $4 (4)        ; <-> subfunction + bitmapped client attributes
  250. socket                     ds.w   1        ; offset: $6 (6)        ;  -> logical socket number
  251. sizeof                     EQU *            ; size:   $8 (8)
  252.                         ENDR
  253.  
  254. ; typedef struct GetClientInfoPB  GetClientInfoPB
  255. GetClientInfoPB         RECORD    0
  256. clientInfo                 ds     ClientInfoParam ; offset: $0 (0)
  257.                          ORG 0
  258. alternateTextString         ds     AlternateTextStringParam ; offset: $0 (0)
  259.                          ORG 0
  260. alternateIcon             ds     AlternateCardIconParam ; offset: $0 (0)
  261.                          ORG 0
  262. customActionProc         ds     CustomActionProcParam ; offset: $0 (0)
  263.                          ORG 24
  264. sizeof                     EQU *            ; size:   $18 (24)
  265.                         ENDR
  266.  
  267. ;    ‘attributes’ field values
  268.  
  269. kCSMemoryClient                    EQU        $0001
  270. kCSIOClient                        EQU        $0004
  271. kCSClientTypeMask                EQU        $0007
  272. kCSShareableCardInsertEvents    EQU        $0008
  273. kCSExclusiveCardInsertEvents    EQU        $0010
  274. kCSInfoSubfunctionMask            EQU        $FF00
  275. kCSClientInfoSubfunction        EQU        $0000
  276. kCSCardNameSubfunction            EQU        $8000
  277. kCSCardTypeSubfunction            EQU        $8100
  278. kCSHelpStringSubfunction        EQU        $8200
  279. kCSCardIconSubfunction            EQU        $8300
  280. kCSActionProcSubfunction        EQU        $8400
  281.  
  282. ;----------------        CSGetConfigurationInfo            ----------------
  283. ;----------------        CSModifyConfiguration            ----------------
  284. ;----------------        CSRequestConfiguration            ----------------
  285. ; typedef struct GetModRequestConfigInfoPB  GetModRequestConfigInfoPB
  286. GetModRequestConfigInfoPB RECORD    0
  287. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  288. socket                     ds.w   1        ; offset: $4 (4)        ;  -> logical socket number
  289. attributes                 ds.w   1        ; offset: $6 (6)        ; <-> bitmap of configuration attributes
  290. vcc                         ds.b   1        ; offset: $8 (8)        ; <-> Vcc setting
  291. vpp1                     ds.b   1        ; offset: $9 (9)        ; <-> Vpp1 setting
  292. vpp2                     ds.b   1        ; offset: $A (10)        ; <-> Vpp2 setting
  293. intType                     ds.b   1        ; offset: $B (11)        ; <-> interface type (memory or memory+I/O)
  294. configBase                 ds.l   1        ; offset: $C (12)        ; <-> card base address of configuration registers
  295. status                     ds.b   1        ; offset: $10 (16)        ; <-> card status register setting, if present
  296. pin                         ds.b   1        ; offset: $11 (17)        ; <-> card pin register setting, if present
  297. copy                     ds.b   1        ; offset: $12 (18)        ; <-> card socket/copy register setting, if present
  298. configIndex                 ds.b   1        ; offset: $13 (19)        ; <-> card option register setting, if present
  299. present                     ds.b   1        ; offset: $14 (20)        ; <-> bitmap of which configuration registers are present
  300. firstDevType             ds.b   1        ; offset: $15 (21)        ; <-  from DeviceID tuple
  301. funcCode                 ds.b   1        ; offset: $16 (22)        ; <-  from FuncID tuple
  302. sysInitMask                 ds.b   1        ; offset: $17 (23)        ; <-  from FuncID tuple
  303. manufCode                 ds.w   1        ; offset: $18 (24)        ; <-  from ManufacturerID tuple
  304. manufInfo                 ds.w   1        ; offset: $1A (26)        ; <-  from ManufacturerID tuple
  305. cardValues                 ds.b   1        ; offset: $1C (28)        ; <-  valid card register values
  306. padding                     ds.b   1        ; offset: $1D (29)        ; 
  307. sizeof                     EQU *            ; size:   $1E (30)
  308.                         ENDR
  309.  
  310. ;    ‘attributes’ field values
  311.  
  312. kCSExclusivelyUsed                EQU        $0001
  313. kCSEnableIREQs                    EQU        $0002
  314. kCSVccChangeValid                EQU        $0004
  315. kCSVpp1ChangeValid                EQU        $0008
  316. kCSVpp2ChangeValid                EQU        $0010
  317. kCSValidClient                    EQU        $0020
  318. kCSSleepPower                    EQU        $0040                ; request that power be applied to socket during Sleep
  319. kCSLockSocket                    EQU        $0080
  320. kCSTurnOnInUse                    EQU        $0100
  321.  
  322. ;    ‘intType’ field values
  323. kCSMemoryInterface                EQU        $01
  324. kCSMemory_And_IO_Interface        EQU        $02
  325.  
  326. ;    ‘present’ field values
  327. kCSOptionRegisterPresent        EQU        $01
  328. kCSStatusRegisterPresent        EQU        $02
  329. kCSPinReplacementRegisterPresent EQU        $04
  330. kCSCopyRegisterPresent            EQU        $08
  331.  
  332. ;    ‘cardValues’ field values
  333. kCSOptionValueValid                EQU        $01
  334. kCSStatusValueValid                EQU        $02
  335. kCSPinReplacementValueValid        EQU        $04
  336. kCSCopyValueValid                EQU        $08
  337.  
  338. ;----------------        CSGetClientEventMask            ----------------
  339. ;----------------        CSSetClientEventMask            ----------------
  340. ; typedef struct GetSetClientEventMaskPB  GetSetClientEventMaskPB
  341. GetSetClientEventMaskPB RECORD    0
  342. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  343. attributes                 ds.w   1        ; offset: $4 (4)        ; <-> bitmap of attributes
  344. eventMask                 ds.w   1        ; offset: $6 (6)        ; <-> bitmap of events to be passed to client for this socket
  345. socket                     ds.w   1        ; offset: $8 (8)        ;  -> logical socket number
  346. sizeof                     EQU *            ; size:   $A (10)
  347.                         ENDR
  348.  
  349. ;    ‘attributes’ field values
  350.  
  351. kCSEventMaskThisSocketOnly        EQU        $0001
  352.  
  353. ;    ‘eventMask’ field values
  354. kCSWriteProtectEvent            EQU        $0001
  355. kCSCardLockChangeEvent            EQU        $0002
  356. kCSEjectRequestEvent            EQU        $0004
  357. kCSInsertRequestEvent            EQU        $0008
  358. kCSBatteryDeadEvent                EQU        $0010
  359. kCSBatteryLowEvent                EQU        $0020
  360. kCSReadyChangeEvent                EQU        $0040
  361. kCSCardDetectChangeEvent        EQU        $0080
  362. kCSPMChangeEvent                EQU        $0100
  363. kCSResetEvent                    EQU        $0200
  364. kCSSSUpdateEvent                EQU        $0400
  365. kCSFunctionInterrupt            EQU        $0800
  366. kCSAllEvents                    EQU        $FFFF
  367.  
  368. ;----------------        CSGetFirstClient                ----------------
  369. ;----------------        CSGetNextClient                    ----------------
  370. ; typedef struct GetClientPB  GetClientPB
  371. GetClientPB             RECORD    0
  372. clientHandle             ds.l   1        ; offset: $0 (0)        ; <-  clientHandle for this client
  373. socket                     ds.w   1        ; offset: $4 (4)        ;  -> logical socket number
  374. attributes                 ds.w   1        ; offset: $6 (6)        ;  -> bitmap of attributes
  375. sizeof                     EQU *            ; size:   $8 (8)
  376.                         ENDR
  377.  
  378. ;    ‘attributes’ field values
  379.  
  380. kCSClientsForAllSockets            EQU        $0000
  381. kCSClientsThisSocketOnly        EQU        $0001
  382.  
  383. ;----------------        CSGetFirstTuple                    ----------------
  384. ;----------------        CSGetNextTuple                    ----------------
  385. ;----------------        CSGetTupleData                    ----------------
  386. ; typedef struct GetTuplePB  GetTuplePB
  387. GetTuplePB                 RECORD    0
  388. socket                     ds.w   1        ; offset: $0 (0)        ;  -> logical socket number
  389. attributes                 ds.w   1        ; offset: $2 (2)        ;  -> bitmap of attributes
  390. desiredTuple             ds.b   1        ; offset: $4 (4)        ;  -> desired tuple code value, or $FF for all
  391. tupleOffset                 ds.b   1        ; offset: $5 (5)        ;  -> offset into tuple from link byte
  392. flags                     ds.w   1        ; offset: $6 (6)        ; <-> internal use
  393. linkOffset                 ds.l   1        ; offset: $8 (8)        ; <-> internal use
  394. cisOffset                 ds.l   1        ; offset: $C (12)        ; <-> internal use
  395. tupleCode                 ds.b   1        ; offset: $10 (16)        ; <-  tuple code found
  396. tupleLink                 ds.b   1        ; offset: $11 (17)        ; <-  link value for tuple found
  397.                          ORG 16
  398. tupleDataMax             ds.w   1        ; offset: $10 (16)        ;  -> maximum size of tuple data area
  399. tupleDataLen             ds.w   1        ; offset: $12 (18)        ; <-  number of bytes in tuple body
  400. tupleData                 ds.w   127        ; offset: $14 (20)        ; <-  tuple data
  401.                          ORG 274
  402. sizeof                     EQU *            ; size:   $112 (274)
  403.                         ENDR
  404.  
  405. ;    ‘attributes’ field values
  406.  
  407. kCSReturnLinkTuples                EQU        $0001
  408.  
  409. ;----------------        CSRequestSocketMask                ----------------
  410. ;----------------        CSReleaseSocketMask                ----------------
  411. ; typedef struct ReqRelSocketMaskPB  ReqRelSocketMaskPB
  412. ReqRelSocketMaskPB         RECORD    0
  413. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  414. socket                     ds.w   1        ; offset: $4 (4)        ;  -> logical socket
  415. eventMask                 ds.w   1        ; offset: $6 (6)        ;  -> bitmap of events to be passed to client for this socket
  416. sizeof                     EQU *            ; size:   $8 (8)
  417.                         ENDR
  418.  
  419. ;    ‘eventMask’ field values (see above for Get/SetClientEventMask
  420. ;----------------        CSGetStatus                        ----------------
  421. ; typedef struct GetStatusPB  GetStatusPB
  422. GetStatusPB             RECORD    0
  423. socket                     ds.w   1        ; offset: $0 (0)        ;  -> logical socket number
  424. cardState                 ds.w   1        ; offset: $2 (2)        ; <-  current state of installed card
  425. socketState                 ds.w   1        ; offset: $4 (4)        ; <-  current state of the socket
  426. sizeof                     EQU *            ; size:   $6 (6)
  427.                         ENDR
  428.  
  429. ;    ‘cardState’ field values
  430.  
  431. kCSWriteProtected                EQU        $0001
  432. kCSCardLocked                    EQU        $0002
  433. kCSEjectRequest                    EQU        $0004
  434. kCSInsertRequest                EQU        $0008
  435. kCSBatteryDead                    EQU        $0010
  436. kCSBatteryLow                    EQU        $0020
  437. kCSReady                        EQU        $0040
  438. kCSCardDetected                    EQU        $0080
  439.  
  440. ;    ‘socketState’ field values
  441. kCSWriteProtectChanged            EQU        $0001
  442. kCSCardLockChanged                EQU        $0002
  443. kCSEjectRequestPending            EQU        $0004
  444. kCSInsertRequestPending            EQU        $0008
  445. kCSBatteryDeadChanged            EQU        $0010
  446. kCSBatteryLowChanged            EQU        $0020
  447. kCSReadyChanged                    EQU        $0040
  448. kCSCardDetectChanged            EQU        $0080
  449.  
  450. ;----------------        CSModifyWindow                    ----------------
  451. ;----------------        CSReleaseWindow                    ----------------
  452. ;----------------        CSRequestWindow                    ----------------
  453. ; typedef struct ReqModRelWindowPB  ReqModRelWindowPB
  454. ReqModRelWindowPB         RECORD    0
  455. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  456. windowHandle             ds.l   1        ; offset: $4 (4)        ; <-> window descriptor
  457. socket                     ds.w   1        ; offset: $8 (8)        ;  -> logical socket number
  458. attributes                 ds.w   1        ; offset: $A (10)        ;  -> window attributes (bitmap)
  459. base                     ds.l   1        ; offset: $C (12)        ; <-> system base address
  460. size                     ds.l   1        ; offset: $10 (16)        ; <-> memory window size
  461. accessSpeed                 ds.b   1        ; offset: $14 (20)        ;  -> window access speed (bitmap)
  462. ;        (not applicable for I/O mode)
  463. padding                     ds.b   1        ; offset: $15 (21)        ; 
  464. sizeof                     EQU *            ; size:   $16 (22)
  465.                         ENDR
  466.  
  467. ;    ‘attributes’ field values
  468.  
  469. kCSMemoryWindow                    EQU        $0001
  470. kCSIOWindow                        EQU        $0002
  471. kCSAttributeWindow                EQU        $0004                ; not normally used by Card Services clients
  472. kCSWindowTypeMask                EQU        $0007
  473. kCSEnableWindow                    EQU        $0008
  474. kCSAccessSpeedValid                EQU        $0010
  475. kCSLittleEndian                    EQU        $0020                ; configure socket for little endianess
  476. kCS16BitDataPath                EQU        $0040                ;
  477. kCSWindowPaged                    EQU        $0080                ; 
  478. kCSWindowShared                    EQU        $0100                ;
  479. kCSWindowFirstShared            EQU        $0200                ; 
  480. kCSWindowProgrammable            EQU        $0400                ; 
  481.  
  482. ;    ‘accessSpeed’ field values
  483. kCSDeviceSpeedCodeMask            EQU        $07
  484. kCSSpeedExponentMask            EQU        $07
  485. kCSSpeedMantissaMask            EQU        $78
  486. kCSUseWait                        EQU        $80
  487. kCSAccessSpeed250nsec            EQU        $01
  488. kCSAccessSpeed200nsec            EQU        $02
  489. kCSAccessSpeed150nsec            EQU        $03
  490. kCSAccessSpeed100nsec            EQU        $04
  491. kCSExtAccSpeedMant1pt0            EQU        $01
  492. kCSExtAccSpeedMant1pt2            EQU        $02
  493. kCSExtAccSpeedMant1pt3            EQU        $03
  494. kCSExtAccSpeedMant1pt5            EQU        $04
  495. kCSExtAccSpeedMant2pt0            EQU        $05
  496. kCSExtAccSpeedMant2pt5            EQU        $06
  497. kCSExtAccSpeedMant3pt0            EQU        $07
  498. kCSExtAccSpeedMant3pt5            EQU        $08
  499. kCSExtAccSpeedMant4pt0            EQU        $09
  500. kCSExtAccSpeedMant4pt5            EQU        $0A
  501. kCSExtAccSpeedMant5pt0            EQU        $0B
  502. kCSExtAccSpeedMant5pt5            EQU        $0C
  503. kCSExtAccSpeedMant6pt0            EQU        $0D
  504. kCSExtAccSpeedMant7pt0            EQU        $0E
  505. kCSExtAccSpeedMant8pt0            EQU        $0F
  506. kCSExtAccSpeedExp1ns            EQU        $00
  507. kCSExtAccSpeedExp10ns            EQU        $01
  508. kCSExtAccSpeedExp100ns            EQU        $02
  509. kCSExtAccSpeedExp1us            EQU        $03
  510. kCSExtAccSpeedExp10us            EQU        $04
  511. kCSExtAccSpeedExp100us            EQU        $05
  512. kCSExtAccSpeedExp1ms            EQU        $06
  513. kCSExtAccSpeedExp10ms            EQU        $07
  514.  
  515. ;----------------        CSRegisterClient                ----------------
  516. ;----------------        CSDeregisterClient                ----------------
  517. ; typedef struct ClientCallbackPB  ClientCallbackPB
  518. ClientCallbackPB         RECORD    0
  519. message                     ds.w   1        ; offset: $0 (0)        ;  -> which event this is
  520. socket                     ds.w   1        ; offset: $2 (2)        ;  -> logical socket number
  521. info                     ds.w   1        ; offset: $4 (4)        ;  -> function-specific
  522. misc                     ds.w   1        ; offset: $6 (6)        ;  -> function-specific
  523. reserved                 ds.l   1        ; offset: $8 (8)        ;  -> pointer to MTD request block
  524. buffer                     ds.l   1        ; offset: $C (12)        ;  -> function-specific
  525. clientData                 ds.l   1        ; offset: $10 (16)        ;  -> pointer to client's data (from RegisterClient)
  526. sizeof                     EQU *            ; size:   $14 (20)
  527.                         ENDR
  528.  
  529. ; typedef ClientCallbackPB     *ClientCallbackPBPtr
  530. ; typedef struct RegisterClientPB  RegisterClientPB
  531. RegisterClientPB         RECORD    0
  532. clientHandle             ds.l   1        ; offset: $0 (0)        ; <-  client descriptor
  533. clientEntry                 ds.l   1        ; offset: $4 (4)        ;  -> universal procPtr to client's event handler
  534. attributes                 ds.w   1        ; offset: $8 (8)        ;  -> bitmap of client attributes
  535. eventMask                 ds.w   1        ; offset: $A (10)        ;  -> bitmap of events to notify client
  536. clientData                 ds.l   1        ; offset: $C (12)        ;  -> pointer to client's data
  537. version                     ds.w   1        ; offset: $10 (16)        ;  -> Card Services version this client expects
  538. sizeof                     EQU *            ; size:   $12 (18)
  539.                         ENDR
  540.  
  541. ;    ‘attributes’ field values (see GetClientInfo)
  542. ;    kCSMemoryClient                    = 0x0001,
  543. ;    kCSIOClient                        = 0x0004,
  544. ;    kCSShareableCardInsertEvents    = 0x0008,
  545. ;    kCSExclusiveCardInsertEvents    = 0x0010
  546. ;----------------        CSReleaseConfiguration            ----------------
  547. ; typedef struct ReleaseConfigurationPB  ReleaseConfigurationPB
  548. ReleaseConfigurationPB     RECORD    0
  549. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  550. socket                     ds.w   1        ; offset: $4 (4)        ;  -> 
  551. sizeof                     EQU *            ; size:   $6 (6)
  552.                         ENDR
  553.  
  554. ;----------------        CSResetCard                        ----------------
  555. ; typedef struct ResetCardPB  ResetCardPB
  556. ResetCardPB             RECORD    0
  557. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  558. socket                     ds.w   1        ; offset: $4 (4)        ;  -> 
  559. attributes                 ds.w   1        ; offset: $6 (6)        ;  -> xxx
  560. sizeof                     EQU *            ; size:   $8 (8)
  561.                         ENDR
  562.  
  563. ;----------------        CSValidateCIS                    ----------------
  564. ; typedef struct ValidateCISPB  ValidateCISPB
  565. ValidateCISPB             RECORD    0
  566. socket                     ds.w   1        ; offset: $0 (0)        ;  -> 
  567. chains                     ds.w   1        ; offset: $2 (2)        ;  -> whether link/null tuples should be included
  568. sizeof                     EQU *            ; size:   $4 (4)
  569.                         ENDR
  570.  
  571. ;----------------        CSVendorSpecific                ----------------
  572. ; typedef struct VendorSpecificPB  VendorSpecificPB
  573. VendorSpecificPB         RECORD    0
  574. clientHandle             ds.l   1        ; offset: $0 (0)        ;  -> clientHandle returned by RegisterClient
  575. vsCode                     ds.w   1        ; offset: $4 (4)
  576. socket                     ds.w   1        ; offset: $6 (6)
  577. dataLen                     ds.l   1        ; offset: $8 (8)        ;  -> length of buffer pointed to by vsDataPtr
  578. vsDataPtr                 ds.l   1        ; offset: $C (12)        ;  -> Card Services version this client expects
  579. sizeof                     EQU *            ; size:   $10 (16)
  580.                         ENDR
  581.  
  582. ;    ‘vsCode’ field values
  583.  
  584. vsAppleReserved                    EQU        $0000
  585. vsEjectCard                        EQU        $0001
  586. vsGetCardInfo                    EQU        $0002
  587. vsEnableSocketEvents            EQU        $0003
  588. vsGetCardLocationIcon            EQU        $0004
  589. vsGetCardLocationText            EQU        $0005
  590. vsGetAdapterInfo                EQU        $0006
  591.  
  592. ;///////////////////////////////////////////////////////////////////////////////////////
  593. ;
  594. ;    GetAdapterInfo parameter block (vendor-specific call #6)
  595. ; typedef struct GetAdapterInfoPB  GetAdapterInfoPB
  596. GetAdapterInfoPB         RECORD    0
  597. attributes                 ds.l   1        ; offset: $0 (0)        ; <-  capabilties of socket's adapter
  598. revision                 ds.w   1        ; offset: $4 (4)        ; <-  id of adapter
  599. reserved                 ds.w   1        ; offset: $6 (6)        ; 
  600. numVoltEntries             ds.w   1        ; offset: $8 (8)        ; <-  number of valid voltage values
  601. voltages                 ds.l   1        ; offset: $A (10)        ; <-> array of BCD voltage values
  602. sizeof                     EQU *            ; size:   $E (14)
  603.                         ENDR
  604.  
  605. ;    ‘attributes’ field values
  606.  
  607. kCSLevelModeInterrupts            EQU        $00000001
  608. kCSPulseModeInterrupts            EQU        $00000002
  609. kCSProgrammableWindowAddr        EQU        $00000004
  610. kCSProgrammableWindowSize        EQU        $00000008
  611. kCSSocketSleepPower                EQU        $00000010
  612. kCSSoftwareEject                EQU        $00000020
  613. kCSLockableSocket                EQU        $00000040
  614. kCSInUseIndicator                EQU        $00000080
  615.  
  616. ;///////////////////////////////////////////////////////////////////////////////////////
  617. ;
  618. ;    GetCardInfo parameter block (vendor-specific call #2)
  619. ; typedef struct GetCardInfoPB  GetCardInfoPB
  620. GetCardInfoPB             RECORD    0
  621. cardType                 ds.b   1        ; offset: $0 (0)        ; <-  type of card in this socket (defined at top of file)
  622. subType                     ds.b   1        ; offset: $1 (1)        ; <-  more detailed card type (defined at top of file)
  623. reserved                 ds.w   1        ; offset: $2 (2)        ; <-> reserved (should be set to zero)
  624. cardNameLen                 ds.w   1        ; offset: $4 (4)        ;  -> maximum length of card name to be returned
  625. vendorNameLen             ds.w   1        ; offset: $6 (6)        ;  -> maximum length of vendor name to be returned
  626. cardName                 ds.l   1        ; offset: $8 (8)        ;  -> pointer to card name string (read from CIS), or nil
  627. vendorName                 ds.l   1        ; offset: $C (12)        ;  -> pointer to vendor name string (read from CIS), or nil
  628. sizeof                     EQU *            ; size:   $10 (16)
  629.                         ENDR
  630.  
  631. ;    GetCardInfo card types
  632.  
  633. kCSUnknownCardType                EQU        0
  634. kCSMultiFunctionCardType        EQU        1
  635. kCSMemoryCardType                EQU        2
  636. kCSSerialPortCardType            EQU        3
  637. kCSSerialOnlyType                EQU        0
  638. kCSDataModemType                EQU        1
  639. kCSFaxModemType                    EQU        2
  640. kCSFaxAndDataModemMask            EQU        (kCSDataModemType | kCSFaxModemType)
  641. kCSVoiceEncodingType            EQU        4
  642. kCSParallelPortCardType            EQU        4
  643. kCSFixedDiskCardType            EQU        5
  644. kCSUnknownFixedDiskType            EQU        0
  645. kCSATAInterface                    EQU        1
  646. kCSRotatingDevice                EQU        (0 << 7)
  647. kCSSiliconDevice                EQU        (1 << 7)
  648. kCSVideoAdaptorCardType            EQU        6
  649. kCSNetworkAdaptorCardType        EQU        7
  650. kCSAIMSCardType                    EQU        8
  651. kCSNumCardTypes                    EQU        9
  652.  
  653. ;
  654. ; pascal OSErr CSVendorSpecific(VendorSpecificPB *pb)
  655. ;
  656.     IF ¬ GENERATINGCFM THEN
  657.         Macro
  658.         _CSVendorSpecific
  659.             moveq    #0,d0
  660.             dc.w     $AAF0
  661.         EndM
  662.     ELSE
  663.         IMPORT_CFM_FUNCTION    CSVendorSpecific
  664.     ENDIF
  665.  
  666. ;
  667. ; pascal OSErr CSRegisterClient(RegisterClientPB *pb)
  668. ;
  669.     IF ¬ GENERATINGCFM THEN
  670.         Macro
  671.         _CSRegisterClient
  672.             moveq    #1,d0
  673.             dc.w     $AAF0
  674.         EndM
  675.     ELSE
  676.         IMPORT_CFM_FUNCTION    CSRegisterClient
  677.     ENDIF
  678.  
  679. ;
  680. ; pascal OSErr CSDeregisterClient(RegisterClientPB *pb)
  681. ;
  682.     IF ¬ GENERATINGCFM THEN
  683.         Macro
  684.         _CSDeregisterClient
  685.             moveq    #2,d0
  686.             dc.w     $AAF0
  687.         EndM
  688.     ELSE
  689.         IMPORT_CFM_FUNCTION    CSDeregisterClient
  690.     ENDIF
  691.  
  692. ;
  693. ; pascal OSErr CSGetFirstTuple(GetTuplePB *pb)
  694. ;
  695.     IF ¬ GENERATINGCFM THEN
  696.         Macro
  697.         _CSGetFirstTuple
  698.             moveq    #3,d0
  699.             dc.w     $AAF0
  700.         EndM
  701.     ELSE
  702.         IMPORT_CFM_FUNCTION    CSGetFirstTuple
  703.     ENDIF
  704.  
  705. ;
  706. ; pascal OSErr CSGetNextTuple(GetTuplePB *pb)
  707. ;
  708.     IF ¬ GENERATINGCFM THEN
  709.         Macro
  710.         _CSGetNextTuple
  711.             moveq    #4,d0
  712.             dc.w     $AAF0
  713.         EndM
  714.     ELSE
  715.         IMPORT_CFM_FUNCTION    CSGetNextTuple
  716.     ENDIF
  717.  
  718. ;
  719. ; pascal OSErr CSGetTupleData(GetTuplePB *pb)
  720. ;
  721.     IF ¬ GENERATINGCFM THEN
  722.         Macro
  723.         _CSGetTupleData
  724.             moveq    #5,d0
  725.             dc.w     $AAF0
  726.         EndM
  727.     ELSE
  728.         IMPORT_CFM_FUNCTION    CSGetTupleData
  729.     ENDIF
  730.  
  731. ;
  732. ; pascal OSErr CSGetConfigurationInfo(GetModRequestConfigInfoPB *pb)
  733. ;
  734.     IF ¬ GENERATINGCFM THEN
  735.         Macro
  736.         _CSGetConfigurationInfo
  737.             moveq    #6,d0
  738.             dc.w     $AAF0
  739.         EndM
  740.     ELSE
  741.         IMPORT_CFM_FUNCTION    CSGetConfigurationInfo
  742.     ENDIF
  743.  
  744. ;
  745. ; pascal OSErr CSGetCardServicesInfo(GetCardServicesInfoPB *pb)
  746. ;
  747.     IF ¬ GENERATINGCFM THEN
  748.         Macro
  749.         _CSGetCardServicesInfo
  750.             moveq    #7,d0
  751.             dc.w     $AAF0
  752.         EndM
  753.     ELSE
  754.         IMPORT_CFM_FUNCTION    CSGetCardServicesInfo
  755.     ENDIF
  756.  
  757. ;
  758. ; pascal OSErr CSGetStatus(GetStatusPB *pb)
  759. ;
  760.     IF ¬ GENERATINGCFM THEN
  761.         Macro
  762.         _CSGetStatus
  763.             moveq    #8,d0
  764.             dc.w     $AAF0
  765.         EndM
  766.     ELSE
  767.         IMPORT_CFM_FUNCTION    CSGetStatus
  768.     ENDIF
  769.  
  770. ;
  771. ; pascal OSErr CSValidateCIS(ValidateCISPB *pb)
  772. ;
  773.     IF ¬ GENERATINGCFM THEN
  774.         Macro
  775.         _CSValidateCIS
  776.             moveq    #9,d0
  777.             dc.w     $AAF0
  778.         EndM
  779.     ELSE
  780.         IMPORT_CFM_FUNCTION    CSValidateCIS
  781.     ENDIF
  782.  
  783. ;
  784. ; pascal OSErr CSGetFirstClient(GetClientPB *pb)
  785. ;
  786.     IF ¬ GENERATINGCFM THEN
  787.         Macro
  788.         _CSGetFirstClient
  789.             moveq    #15,d0
  790.             dc.w     $AAF0
  791.         EndM
  792.     ELSE
  793.         IMPORT_CFM_FUNCTION    CSGetFirstClient
  794.     ENDIF
  795.  
  796. ;
  797. ; pascal OSErr CSGetNextClient(GetClientPB *pb)
  798. ;
  799.     IF ¬ GENERATINGCFM THEN
  800.         Macro
  801.         _CSGetNextClient
  802.             moveq    #16,d0
  803.             dc.w     $AAF0
  804.         EndM
  805.     ELSE
  806.         IMPORT_CFM_FUNCTION    CSGetNextClient
  807.     ENDIF
  808.  
  809. ;
  810. ; pascal OSErr CSGetClientInfo(GetClientInfoPB *pb)
  811. ;
  812.     IF ¬ GENERATINGCFM THEN
  813.         Macro
  814.         _CSGetClientInfo
  815.             moveq    #17,d0
  816.             dc.w     $AAF0
  817.         EndM
  818.     ELSE
  819.         IMPORT_CFM_FUNCTION    CSGetClientInfo
  820.     ENDIF
  821.  
  822. ;
  823. ; pascal OSErr CSResetCard(ResetCardPB *pb)
  824. ;
  825.     IF ¬ GENERATINGCFM THEN
  826.         Macro
  827.         _CSResetCard
  828.             moveq    #18,d0
  829.             dc.w     $AAF0
  830.         EndM
  831.     ELSE
  832.         IMPORT_CFM_FUNCTION    CSResetCard
  833.     ENDIF
  834.  
  835. ;
  836. ; pascal OSErr CSRequestWindow(ReqModRelWindowPB *pb)
  837. ;
  838.     IF ¬ GENERATINGCFM THEN
  839.         Macro
  840.         _CSRequestWindow
  841.             moveq    #19,d0
  842.             dc.w     $AAF0
  843.         EndM
  844.     ELSE
  845.         IMPORT_CFM_FUNCTION    CSRequestWindow
  846.     ENDIF
  847.  
  848. ;
  849. ; pascal OSErr CSModifyWindow(ReqModRelWindowPB *pb)
  850. ;
  851.     IF ¬ GENERATINGCFM THEN
  852.         Macro
  853.         _CSModifyWindow
  854.             moveq    #20,d0
  855.             dc.w     $AAF0
  856.         EndM
  857.     ELSE
  858.         IMPORT_CFM_FUNCTION    CSModifyWindow
  859.     ENDIF
  860.  
  861. ;
  862. ; pascal OSErr CSReleaseWindow(ReqModRelWindowPB *pb)
  863. ;
  864.     IF ¬ GENERATINGCFM THEN
  865.         Macro
  866.         _CSReleaseWindow
  867.             moveq    #21,d0
  868.             dc.w     $AAF0
  869.         EndM
  870.     ELSE
  871.         IMPORT_CFM_FUNCTION    CSReleaseWindow
  872.     ENDIF
  873.  
  874. ;
  875. ; pascal OSErr CSRequestConfiguration(GetModRequestConfigInfoPB *pb)
  876. ;
  877.     IF ¬ GENERATINGCFM THEN
  878.         Macro
  879.         _CSRequestConfiguration
  880.             moveq    #27,d0
  881.             dc.w     $AAF0
  882.         EndM
  883.     ELSE
  884.         IMPORT_CFM_FUNCTION    CSRequestConfiguration
  885.     ENDIF
  886.  
  887. ;
  888. ; pascal OSErr CSModifyConfiguration(GetModRequestConfigInfoPB *pb)
  889. ;
  890.     IF ¬ GENERATINGCFM THEN
  891.         Macro
  892.         _CSModifyConfiguration
  893.             moveq    #28,d0
  894.             dc.w     $AAF0
  895.         EndM
  896.     ELSE
  897.         IMPORT_CFM_FUNCTION    CSModifyConfiguration
  898.     ENDIF
  899.  
  900. ;
  901. ; pascal OSErr CSAccessConfigurationRegister(AccessConfigurationRegisterPB *pb)
  902. ;
  903.     IF ¬ GENERATINGCFM THEN
  904.         Macro
  905.         _CSAccessConfigurationRegister
  906.             moveq    #29,d0
  907.             dc.w     $AAF0
  908.         EndM
  909.     ELSE
  910.         IMPORT_CFM_FUNCTION    CSAccessConfigurationRegister
  911.     ENDIF
  912.  
  913. ;
  914. ; pascal OSErr CSReleaseConfiguration(ReleaseConfigurationPB *pb)
  915. ;
  916.     IF ¬ GENERATINGCFM THEN
  917.         Macro
  918.         _CSReleaseConfiguration
  919.             moveq    #30,d0
  920.             dc.w     $AAF0
  921.         EndM
  922.     ELSE
  923.         IMPORT_CFM_FUNCTION    CSReleaseConfiguration
  924.     ENDIF
  925.  
  926. ;
  927. ; pascal OSErr CSGetClientEventMask(GetSetClientEventMaskPB *pb)
  928. ;
  929.     IF ¬ GENERATINGCFM THEN
  930.         Macro
  931.         _CSGetClientEventMask
  932.             moveq    #31,d0
  933.             dc.w     $AAF0
  934.         EndM
  935.     ELSE
  936.         IMPORT_CFM_FUNCTION    CSGetClientEventMask
  937.     ENDIF
  938.  
  939. ;
  940. ; pascal OSErr CSSetClientEventMask(GetSetClientEventMaskPB *pb)
  941. ;
  942.     IF ¬ GENERATINGCFM THEN
  943.         Macro
  944.         _CSSetClientEventMask
  945.             moveq    #32,d0
  946.             dc.w     $AAF0
  947.         EndM
  948.     ELSE
  949.         IMPORT_CFM_FUNCTION    CSSetClientEventMask
  950.     ENDIF
  951.  
  952. ;
  953. ; pascal OSErr CSRequestSocketMask(ReqRelSocketMaskPB *pb)
  954. ;
  955.     IF ¬ GENERATINGCFM THEN
  956.         Macro
  957.         _CSRequestSocketMask
  958.             moveq    #33,d0
  959.             dc.w     $AAF0
  960.         EndM
  961.     ELSE
  962.         IMPORT_CFM_FUNCTION    CSRequestSocketMask
  963.     ENDIF
  964.  
  965. ;
  966. ; pascal OSErr CSReleaseSocketMask(ReqRelSocketMaskPB *pb)
  967. ;
  968.     IF ¬ GENERATINGCFM THEN
  969.         Macro
  970.         _CSReleaseSocketMask
  971.             moveq    #34,d0
  972.             dc.w     $AAF0
  973.         EndM
  974.     ELSE
  975.         IMPORT_CFM_FUNCTION    CSReleaseSocketMask
  976.     ENDIF
  977.  
  978.     ENDIF ; __CARDSERVICES__
  979.